home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / oddech / karel / karol.exe / {app} / Priklady / 05bazen.kpp < prev    next >
Text File  |  2001-04-21  |  809b  |  53 lines
  1. prikaz celomvzad
  2.    vlavo
  3.    vlavo
  4. *prikaz
  5.  
  6. opakuj 4 krat
  7. {*********** postavim bazen ***********}
  8.  opakuj 12 krat
  9.    kym nie je stena rob
  10.      poloz
  11.      krok
  12.    *kym
  13.    vlavo
  14.  *opakuj
  15.  
  16. {prejdem do stredu}
  17.  vlavo opakuj 2 krat krok *opakuj vpravo
  18.  
  19. {preplavaj}
  20.  opakuj 3 krat poloz *opakuj
  21.  krok
  22.  kym nie je tehla rob
  23.    opakuj 3 krat poloz *opakuj
  24.    krok
  25.    vlavo vlavo
  26.    opakuj 3 krat zober *opakuj
  27.    vlavo vlavo
  28.  *kym
  29.  krok
  30.  vlavo vlavo
  31.  opakuj 3 krat zober *opakuj
  32.  vlavo vlavo
  33.  
  34.  {pridem do rohu}
  35.  vpravo
  36.  opakuj 2 krat krok *opakuj
  37.  vpravo
  38.  
  39.  opakuj 12 krat
  40.    kym nie je stena rob
  41.      zober
  42.      krok
  43.    *kym
  44.    vpravo
  45.  *opakuj
  46.  
  47.  {vratim sa na povodnu poziciu}
  48.  kym je volno rob krok; *kym
  49.  {natocenie v povodnom smere}
  50.  vlavo; vlavo;
  51.  
  52.  *opakuj
  53.